home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Mania 4
/
MacMania 4.toast
/
/
Multimedia & Desktop
/
GifBuilder folder
/
Sample Scripts
/
"create GIF" sample script
next >
Wrap
Text File
|
1996-03-25
|
741b
|
23 lines
property w : 80
property h : 80
property red : {65535, 0, 0}
property blue : {0, 0, 65535}
property green : {0, 65535, 0}
property yellow : {65535, 65535, 0}
property step : 20
tell application "clip2gif"
set l to {}
save {w, h} in window -- creates a new window
repeat with i from 0 to 360 - step by step
save {w, h} in window 1 ¬
drawing {{chart data:{i, blue, 90, blue, 90, yellow, 90, red, 90, green}, chart style:pie, position:{0, 0, w, h}}}
set end of l to content of window 1
end repeat
end tell
tell application "GifBuilder"
create GIF l in (new file default name "multigif.gif") depth 4 color table system colors ¬
transparency first pixel disposal method no interframe delay 10 with loop without dithering
end tell